perm filename 12X13.SCR[SCR,LCS] blob sn#434111 filedate 1979-05-16 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6 
COMMON TOOT   TOOT CLAR BRIT BUZZ; 
COMMON REVRB;  
 
  < 12X13.SCR  --  RANDOM NUMBER=     1
 PLAY;
 REVRB    0.000   12.000
;PRINT P1;< REVRB   1
 CLAR     0.000    0.308 261.626   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   0.000  13.000
;PRINT P1;< CLAR    1
 BUZZ     0.000    0.333  C/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    1
 CLAR     0.308    0.308 275.954   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   1.000
;PRINT P1;< CLAR    2
 BUZZ     0.333    0.333 CS/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    2
 CLAR     0.616    0.308 291.067   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   2.000
;PRINT P1;< CLAR    3
 BUZZ     0.666    0.333  D/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    3
 CLAR     0.924    0.307 307.007   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   3.000
;PRINT P1;< CLAR    4
 BUZZ     0.999    0.334 DS/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    4
 CLAR     1.231    0.308 323.821   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   4.000
;PRINT P1;< CLAR    5
 BUZZ     1.333    0.333  E/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    5
 CLAR     1.539    0.308 341.555   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   5.000
;PRINT P1;< CLAR    6
 BUZZ     1.666    0.333  F/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    6
 CLAR     1.847    0.307 360.261   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   6.000
;PRINT P1;< CLAR    7
 BUZZ     1.999    0.334 FS/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    7
 CLAR     2.154    0.308 379.991   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   7.000
;PRINT P1;< CLAR    8
 BUZZ     2.333    0.333  G/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    8
 CLAR     2.462    0.308 400.801   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   8.000
;PRINT P1;< CLAR    9
 BUZZ     2.666    0.333 GS/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ    9
 CLAR     2.770    0.307 422.752   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000   9.000
;PRINT P1;< CLAR   10
 BUZZ     2.999    0.334  A/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ   10
 CLAR     3.077    0.308 445.904   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  10.000
;PRINT P1;< CLAR   11
 BUZZ     3.333    0.333 AS/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ   11
 CLAR     3.385    0.308 470.325   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  11.000
;PRINT P1;< CLAR   12
 BUZZ     3.666    0.333  B/4    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ   12
 CLAR     3.693    0.307 496.083   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  12.000
;PRINT P1;< CLAR   13
 BUZZ     3.999    1.000  C/2    1.100    F3   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F6
;PRINT P1;< BUZZ   13
 CLAR     4.000    1.000 523.251   0.600    F2   0.000   0.000   0.000   0.000   0.000
         0.000   0.100    F4   0.000   0.000   0.000   0.000  13.000
;PRINT P1;< CLAR   14
 FINISH; < 12X13.SCR